with System;

package CyclicTask is

   task type Cyclic(Pri : System.Priority; Cycle_Time : Positive;Id : Positive) is
      pragma Priority(Pri);
   end Cyclic;

   CT1 : Cyclic(20,2000000,1);
   CT2 : Cyclic(10,1000000,2);

end CyclicTask;
